; Script di installazione per ExtMan 1.15 (25.07.97)
;
; Stringhe
(set @default-dest "")
(set @default-message "")
(set lib-def-dest "LIBS:")
(set extman-dest "SYS:Tools")
; E' un Amiga 3.0?
(if (= @language "italiano")
(
(if (< (/ (getversion) 65536) 39) (abort "Devi avere il Kickstart 3.0 (o superiore) per usare\nEasyPrint."))
(message
(cat "\n\n\nExtMan, script di installazione.\n"
"Questa procedura installa ExtMan sul vostro Amiga.\n\n"
"(C) Copyright 1995-1997 Alain Martini.\n Tutti i diritti sono riservati"
))
(set lib-dest
(askdir
(prompt "Dove desideri venga copiata la libreria 'wizard.library' (sarà copiata solo se più recente di quella già installata)?")
(help " Se usi una directory per le librerie create da terzi, adesso puoi specificarla.")
(default lib-def-dest)
)
)
(copylib
(prompt (cat "Copio la wizard.library in " (tackon lib-dest "wizard.library")))
(help @copylib-help)
(source "libs/wizard.library")
(dest lib-dest)
(confirm)
)
(set extman-dest
(askdir
(prompt "Dove desideri installare ExtMan (sarà creato un nuovo cassetto chiamato 'ExtMan')?")
(help " Seleziona il cassetto in cui installare ExtMan.")
(default extman-dest)
(disk)
)
)
(if (NOT (exists (tackon extman-dest "ExtMan")))
(makedir (tackon extman-dest "ExtMan")
(infos)))
(copyfiles
(prompt "Copio 'Extman' in " extman-dest "ExtMan/...")
(source "ExtMan/")
(dest (tackon extman-dest "ExtMan"))
(all)
)
(copyfiles
(prompt "Copio 'ExtMan.guide' in " extman-dest "Extman/...")
(source "ExtMan_1.15")
(dest (tackon extman-dest "ExtMan"))
)
(copyfiles
(prompt "Copio 'ExtMan_eng.guide' in " extman-dest "ExtMan/...")
(source "Credits")
(dest (tackon extman-dest "ExtMan"))
)
)
(
(if (< (/ (getversion) 65536) 39) (abort "ExtMan need at least OS 3.0"))
(message
(cat "\n\n\nEasyPrint, installation script.\n\n"
"This script installs ExtMan on your Amiga.\n\n"
"(C) Copyright 1996-1997 by Alain Martini\nAll rights reserved."
)
)
; Ask where to copy the library.
(set lib-dest
(askdir
(prompt "Select directory where to install the library 'wizard.library' (copy the library using version checking).")
(help " Copy the library using version checking; i.e., it only overwrites an existing library if the new library has a higher version/revision number.")
(default lib-def-dest)
)
)
; Copy the library.
(copylib
(prompt (cat "Copying wizard.library to " lib-dest))
(help @copylib-help)
(source "libs/wizard.library")
(dest lib-dest)
(confirm)
)
(set extman-dest
(askdir
(prompt "Select directory where to install ExtMan (a directory called `ExtMan` will be created here).")
(help " If you specify a path, a new directory called `ExtMan` will be created in it. The program will be copied in this directory.")
(default extman-dest)
(disk)
)
)
(if (NOT (exists (tackon extman-dest "ExtMan")))
(makedir (tackon extman-dest "ExtMan")
(infos)))
(copyfiles
(prompt "Copying 'ExtMan' to " extman-dest "ExtMan/...")
(source "ExtMan/")
(dest (tackon extman-dest "ExtMan"))
(all)
)
(copyfiles
(prompt "Copying 'ExtMan.guide' to " extman-dest "ExtMan/...")
(source "ExtMan.guide")
(dest (tackon extman-dest "ExtMan"))
)
(copyfiles
(prompt "Copying 'ExtMan_eng.guide' to " extman-dest "ExtMan/...")